unit MainForm;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWColor, IWTypes, Vcl.Menus,
  Vcl.Graphics, Vcl.ScreenTips, LoginForm, Vcl.Controls, Vcl.Forms,
  IWVCLBaseContainer, IWContainer, IWHTMLContainer, IWHTML40Container, IWRegion,
  IWVCLBaseControl, IWBaseControl, IWBaseHTMLControl, IWControl, IWCompMenu;

type
  TIWfmMain = class(TIWAppForm)
    MainMenu1: TMainMenu;
    Logout1: TMenuItem;
    Administrator1: TMenuItem;
    UserManagement1: TMenuItem;
    CustomerManagement1: TMenuItem;
    GroupManagement1: TMenuItem;
    AccessControlManagement1: TMenuItem;
    N1: TMenuItem;
    Login1: TMenuItem;
    IWMenu1: TIWMenu;
    procedure Logout1Click(Sender: TObject);
    procedure Login1Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
  public
  end;

implementation

{$R *.dfm}


procedure TIWfmMain.IWAppFormCreate(Sender: TObject);
begin
  if  then

end;

procedure TIWfmMain.Login1Click(Sender: TObject);
begin
  TIWfmLogin.Create(WebApplication).Show;
end;

procedure TIWfmMain.Logout1Click(Sender: TObject);
begin
  //Logout
end;

initialization
  TIWfmMain.SetAsMainForm;

end.
